home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
E-Education
/
(c)ed4.d64
/
teacher info
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
5KB
|
144 lines
10 GOTO100
50 FORT=1TO500:NEXT:RETURN
51 FORT=1TO1000:NEXT:RETURN
52 FORT=1TO2000:NEXT:RETURN
53 FORT=1TO3000:NEXT:RETURN
60 PRINT" * [208]RESS [211][208][193][195][197][160][194][193][210] TO CONTINUE.
62 [161]R$:[139]R$[179][177][199](32)[167]62
64 [142]
100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23
110 [153]"LOAD (null)(null)(null)CHR$ VALDUCATIONAL STR$ISK VALSTR$-4 ":[141]50
115 [153]"OPEN ASCROM THE (null)ORONTO (null)ET (null)SERS CHR$ROUP":[141]50
120 [153]"DEF ATN LENOMMODORE COMPUTER USERS' CLUB ":[141]51
121 [153]"SYS **** PEEKATN(null)RIGHT$LENCLOSE(null)ATN(null)LEFT$CLOSE(null)VAL(null)RIGHT$VAL(null) - #2 **** ":[141]51
122 [153]" (null)ROGRAMS TO HELP PUPILS LEARN
123 PRINT" BASIC MATHEMATICAL SKILLS.":GOSUB51
125 PRINT"[153] [201]NFORMATION FOR TEACHERS.[159]"
126 GOSUB52:GOSUB60
127 PRINT"[147] [212]HESE PUBLIC DOMAIN PROGRAMS HAVE
130 [153]" BEEN DERIVED FROM THE LENOMMODORE
135 PRINT" [207]NTARIO [197]DUCATIONAL [208]ROJECT, 1983."
136 PRINT" [198]RANKLIN [215]INTER - [196]IRECTOR":GOSUB52
140 PRINT" [212]HEY HAVE BEEN UPDATED BY MEMBERS,
145 [153]" GUIDED BY EXTENSIVE DIRECT
150 PRINT" OBSERVATION OF STUDENT INTERACTION."
155 GOSUB53:GOSUB60
200 PRINT"[153][147] [206][213][205][194][197][210][160][211][197][209][213][197][206][195][197]
210 [153]" (null)HE STUDENT IS ABLE TO PRACTISE
220 PRINT" WITH VARIOUS NUMBER SEQUENCES.
230 [153]" (null)HERE ARE FIVE LEVELS OF DIFFICULTY."
240 [141]52:[141]60
300 [153]"LOAD (null)(null)RIGHT$(null)CLOSE(null)(null)(null)(null)RIGHT$(null)(null)(null)
310 PRINT" [212]HE STUDENT CAN SELECT 5 LEVELS OF DIFFICULTY.
320 [153]" (null)HOULD THE STUDENT FAIL TWICE TO
330 PRINT" GET THE ANSWER TO A QUESTION, THE
340 [153]" CORRECT ANSWER WILL BE PROVIDED.
350 PRINT" [193]FTER TEN QUESTIONS, THE STUDENT
360 [153]" RECEIVES THE SCORE AND A CHOICE
370 PRINT" OF PLAYING AGAIN OR STOPPING."
380 GOSUB52:GOSUB60
400 PRINT"[147] [205][193][212][200][160][198][193][195][212][211][160][196][210][201][204][204]
410 [153]" (null)HIS PROGRAM PROVIDES DRILL IN
420 PRINT" ADDITION, SUBTRACTION,
430 [153]" MULTIPLICATION OR DIVISION.
440 PRINT" [212]EN QUESTIONS ARE PRESENTED.
450 [153]" ATNFTER 3 INCORRECT RESPONSES TO A
460 PRINT" QUESTION, THE CORRECT ANSWER IS PROVIDED."
480 GOSUB52:GOSUB60
500 PRINT"[147] [205][213][206][195][200][203][201][206] [205][213][204][212][201][208][204][217]
510 [153]" (null)HIS PROGRAM PROVIDES DRILL IN
520 PRINT" MULTIPLICATION.
530 [153]" (null)HE STUDENT SELECTS A MULTIPLIER.
540 PRINT" [201]N [208]ART [201], THE MULTIPLICANDS ARE
550 [153]" PRESENTED IN SEQUENCE FROM 1 TO 10.
560 PRINT" [201]N [208]ART [201][201], THE MULTIPLICANDS ARE
570 [153]" PRESENTED RANDOMLY.
580 PRINT" [212]HE SCORE IS PRESENTED AT THE END OF THE EXERCISE."
590 GOSUB52:GOSUB60
600 PRINT"[147] [212][201][195][160][212][193][195][160][193][210][201][212][200][205][197][212][201][195]
610 [153]" (null)HIS IS A VARIATION OF THE GAME (null)IC (null)AC (null)OE.
620 PRINT" [212]WO PLAYERS COMPETE BY CORRECTLY
630 [153]" ANSWERING A MATH QUESTION IN ORDER
640 PRINT" TO MAKE A MOVE.
650 [153]" (null)HE MATH QUESTIONS RANGE FROM
660 PRINT" ADDITION TO DIVISION."
690 GOSUB52:GOSUB60
700 PRINT"[147] [195][193][211][200][160][210][197][199][201][211][212][197][210]
710 [153]" (null)HIS IS A SIMULATION OF THE
720 PRINT" PROCESS OF MAKING CORRECT CHANGE
730 [153]" FOR PURCHASES IN A STORE.
740 PRINT" [212]HE STUDENT IS PRESENTED WITH THE
750 [153]" COST OF AN ITEM AND MUST MAKE
760 PRINT" CORRECT CHANGE FOR THE MONEY PRESENTED."
765 GOSUB52:GOSUB60
800 PRINT"[147] [195][207]-[207][210][196][201][206][193][212][197][211]
810 [153]" (null)HIS IS A TUTORIAL AND DRILL IN
820 PRINT"1. [212]HE CONCEPTS OF + AND - MOVEMENT FROM ZERO ON A LINE.
830 [153]"2. (null)HE CONCEPTS OF (null) (null) CO-ORDINATES AND GRAPHING."
895 [141]52:[141]60
900 [153]"LOAD (null)(null)(null)VALCLOSE(null)
910 PRINT" [212]HIS GAME REQUIRES THE STUDENT TO
920 [153]" LOCATE THE POINT OF INTERSECTION
930 PRINT" OF TWO HIDDEN LINES ON A GRID.
990 [141]52:[141]60
1000 [153]"LOAD (null)(null)VALATN(null)(null)(null)VALCLOSEATNSTR$STR$RIGHT$(null)RIGHT$(null)(null)
1010 PRINT" [212]HE OBJECTIVE IS TO REACH THE
1020 [153]" BURIED TREASURE ON THE FAR SIDE
1030 PRINT" OF THE STREAM.
1040 [153]" VALVERY TWO STEPS ON STEPPING STONES
1050 PRINT" ACROSS THE STREAM ARE ACHIEVED
1060 [153]" BY CORRECTLY ANSWERING A MATH QUESTION
1070 PRINT" [201]NCORRECT ANSWERS MAY RESULT IN A DUNKING.
1090 [141]52:[141]60
1100 [153]"LOAD PEEK.(null).LEN. (null)(null)(null)(null)RIGHT$(null)(null)(null)
1110 PRINT" [212]HIS IS A [194]EAT [212]HE [195]LOCK GAME IN
1120 [153]" WHICH THE STUDENT COMPETES WITH THE
1130 PRINT" COMPUTER FOR ACCURACY AND SPEED.
1140 [153]" (null)HERE ARE TWO SETS OF FIFTEEN
1150 PRINT" MULTIPLICATION QUESTIONS.
1160 [153]" (null)HE SECOND SET IS MORE CHALLENGING."
1190 [141]52:[141]60
1200 [153]"LOAD PEEK.(null).LEN. (null)(null)PEEK(null)(null)ATNLEN(null)RIGHT$(null)(null)
1210 PRINT" [212]HIS IS A [194]EAT [212]HE [195]LOCK GAME IN
1220 [153]" WHICH THE STUDENT COMPETES WITH THE
1230 PRINT" COMPUTER FOR ACCURACY AND SPEED.
1240 [153]" (null)HERE ARE TWO SETS OF FIFTEEN
1250 PRINT" SUBTRACTION QUESTIONS.
1260 [153]" (null)HE SECOND SET IS MORE CHALLENGING."
1290 [141]52:[141]60
1300 [153]"LOAD PEEK(null)ATNRIGHT$(null)CLOSELEN(null)ATN(null)VALCLOSE(null)
1310 PRINT" [212]HIS IS A MULTIPLICATION EXERCISE.
1320 [153]" (null)ITH EACH CORRECT RESPONSE, A
1330 PRINT" CRANE APPEARS, PICKS THE NUMBER FROM
1340 [153]" A BOX, AND LOWERS THE NUMBER INTO ITS PROPER PLACE.
1350 PRINT" [212]HIS COULD BE A HELPFUL PROGRAM FOR
1360 [153]" STUDENTS WHO ARE RATHER SLOW IN
1370 PRINT" LEARNING THEIR TIMES TABLES."
1390 GOSUB52:GOSUB60
1400 PRINT"[147] [193][199][197][206][212][160][194][204][207][212][212][207]
1410 [153]" (null)HIS IS A LIGHT-HEARTED GAME IN
1420 PRINT" WHICH THE STUDENT ASSISTS [193]GENT
1430 [153]" PEEKLOTTO TO SOLVE CRIMES.
1440 PRINT" [212]HE STUDENT MUST DECODE SECRET
1450 [153]" NUMERICAL MESSAGES TO PROVIDE CLUES."
1460 [141]52:[141]60
1500 [153]"LOAD (null)(null)(null)(null)(null)VAL(null)CLOSE(null)(null)(null)(null)RIGHT$(null)(null)(null)
1510 PRINT" [201]N THIS GAME, THE STUDENT MUST
1520 [153]" ERECT A WALL OF BLOCKS IN DEFENSE
1530 PRINT" OF AN EVIL MONSTER.
1540 [153]" (null)HE STUDENT MUST CORRECTLY ANSWER
1550 PRINT" A SERIES OF 10 QUESTIONS TO MOVE"
1560 PRINT" BLOCKS TO BUILD A DEFENSIVE WALL.
1570 [153]" (null)HE SPEED OF THE GAME CAN BE ADJUSTED."
1590 [141]52:[141]60
2000 [153]"LOAD ATN LENLEFT$(null)RIGHT$LENVAL:
2010 PRINT" [208]RESS 1 [146] TO REPEAT INSTUCTIONS
2020 [153]" (null)RESS 9 WAIT TO RETURN TO (null)VAL(null)(null)
2030 GETR$:IFR$<>"1"ANDR$<>"9"THEN2030
2040 IFR$="1"THEN100
2060 PRINT"[147] [204]OADING [205][197][206][213] [146]
2065 [147]"MENU",8
2070 [138]
2080 [128]
2090 [143] BILL CUMBERLAND 90:11:29